home *** CD-ROM | disk | FTP | other *** search
/ Larry Magid's Essential Internet / Larry Magid's Essential Internet (Quarterdeck Corporation)(1995).ISO / anims / 127 / 127.dir / 00091_Script_jumper scripts < prev   
Text File  |  1995-11-10  |  1KB  |  40 lines
  1. -- JUMPER SCRIPTS
  2.  
  3. -- Scripts that deal with movie sub-launching from JUMPER.DIR
  4. -- Paste this castmember with its scripts into any sub-launched movie
  5. -- when you want to quit, call the script "doQuit"
  6. -- Don't quit ANY other way, or things will break!!!
  7.  
  8. on startMovie
  9.   --strictly speaking, this isn't necessary, but it's here for safety's sake
  10.   set the exitLock to true
  11. end
  12.  
  13. on keyDown
  14.   -- this script handles keyboard events that are requests to quit
  15.   set ESCAPEKEY = 53
  16.   if (the controlDown and the key = "q") ¼
  17. or (the controlDown and the key = ".") ¼
  18. or (the keyCode = ESCAPEKEY) then doQuit
  19. end
  20.  
  21. on doQuit
  22.   -- launchedFrom tells us where we were launched from
  23.   -- which is where we return to when we quit
  24.   global launchedFrom  
  25.   -- stop sound play
  26.   repeat with cnt = 1 to 2
  27.     if soundBusy(cnt) then sound close cnt
  28.   end repeat
  29.   if stringP(launchedFrom) then
  30.     -- handles quitting for a sub-launched movie
  31.     set the visible of the stage = FALSE
  32.     set the centerStage = FALSE
  33.     set the fixStageSize = FALSE
  34.     unLoad 1, the lastframe
  35.     go to movie launchedFrom
  36.   else
  37.     quit
  38.   end if
  39. end
  40.